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(54) TEST PROGRAM GENERATION SUPPORT DEVICE 

(57)Abstract: 

PURPOSE: To generate the set of test programs in which the 
comprehensibility of grammar is secured and whose quality is satisfactory 
and to reduce man- hours required for test program generation work by 
inputting the construction rule of a sentence and automatically generating 
all sentence patterns derived from the construction rule. 
CONSTITUTION: A sentence pattern generation part 3 inputs a 
construction rule file 1 and converts the construction rule into the internal 
system of tree structure. All the sentence patterns derived from the 
construction rule are successively generated by analyzing the converted 
construction rule. A test program editing part 4 receives the sentence 
pattern and displays one sentence pattern in a display device 5. Here, a 
user executes a key operation by an input device 6, and a non-terminal 
mark is converted into a terminal mark, the sentence is indented and other 
sentences are fetched by the key operation. The test program which is 
generated by the operation is registered in a disk device by automatically 
designating a file name. 
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DELETE < 7 T ^ )V^> WHERE <it**U?> <?»J£> 1 

DELETE < 37 r^;V£> WHERE <it«S^^?> 2 

DELETE (77^^) WHERE <5»J£> <Jt«iSt£?> <*^?U> 3 
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<DELETE^> : : = DELETE <7 7>fH> WHERE <BS^«fe#> 1 

:: = <it«S!i£^>. I <INig|§> | <LlKEifif§> 2 
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DELETE <7 7 -OU£> WHERE <^> <Jfc#iS3f^> <X^J> 
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DELETE FILEOl 
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PROCEDURE DIVISION. 
EXEC SQL 

DELETE FILEOl 

WHERE ITEM02 = ' ABCDEFG' 
END — EXEC. 
STOP RUN. 
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DELETE F1L.E02 

WHERE 1 TEMO 1 - : VARO 1 



DELETE FILE02 

WHERE I T EMO 1 - : VAR 0 2 



DELETE FILE02 

WHERE I T EMO 2 = : VAR 0 1 
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PROCEDUR DIVISION. 
EXEC SQL 

DELETE <77^;^> 

where <m^~> <ttmmn?> <3>m%> 

END-EXEC. 
STOP RUN. 
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PROCEDUR DIVISION. 
EXEC SQL 

DELETE FILE02 
WHERE 
END — EXEC. 
STOP RUN. 
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MOVE ' 123456' TO VAROl 



MOVE ' 123* TO VAR02 



MOVE ' 123456' TO VARQ2 
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